0 REM--AHOY!--JUNE ISSUE--CREATE GAMES--PROG PAGE 13
5 DIM HM(7),VM(64)
10 GOSUB 600:GOSUB 500
80 V=10:H=10
90 GOTO 140
97 REM
98 REM MAIN MOVEMENT LOOP
99 REM
100 V=VX+VM(PEEK(197)):H=HX+HM(PEEK(653))
110 IF H=HX AND V=VX THEN 100
120 IF V>BE THEN V=V-BF
121 IF V<0 THEN V=V+BF
122 IF H>RE THEN H=H-RF
123 IF H<0 THEN H=H+RF
140 PRINT VM$(VX)TAB(HX)" "VM$(V)150 HX=H:VX=V
190 GOTO 100
497 REM
498 REM SET UP MOVEMENT STRINGS
499 REM
500 DIM VM$(BE):VM$(0)=CHR$(19)
510 FOR I=1 TO BE:VM$(I)=VM$(I-1)+CHR$(17):NEXT
540 RETURN
597 REM
598 REM SETUP FOR COMMODORE 64
599 REM
600 RE=38:REM VIC VALUE IS 20
605 RF=39:REM VIC VALUE IS 21
610 BE=23:REM VIC VALUE IS 21
615 BF=24:REM VIC VALUE IS 22
620 PF$=CHR$(122)
630 POKE 53281,0:POKE 53280,0
631 REM VIC LINE: 630 POKE 36879,8
640 POKE 657,128:PRINT CHR$(147)
650 FOR I=0 TO 64:VM(I)=0:NEXT:FOR I=0 TO 7:HM(I)=0:NEXT
660 HM(1)=1:HM(2)=-1:VM(3)=1:VM(6)=-1
661 REM VIC LINE: 660 HM(1)=1:HM(2)=-1:VM(63)=1:VM(55)=-1
690 RETURN